MacFormat 1996 February/macformat-034.iso/mac/Shareware City/Applications/NIH Image 1.59/Macros/ROI Macros

Text File | 1994-06-22 | 650 b | 36 lines | [TEXT/Imag]

macro 'Gray level wand tool [W]';
var
   x,y:integer;
begin
  Requiresversion(1.55);
  KillROI;
  repeat
  SetCursor('arrow');
  showmessage('Click on the image');
  until button;
  GetMouse(x,y);
  AutoThreshold;
  AutoOutline(x,y);
  SetThreshold(-1);
end;

macro 'Fill Selection, Erase Background';
{Fills selection to black and sets everything else white.}
var
  left,top,width,height:integer;
begin
   GetRoi(left,top,width,height);
   if width=0 then begin
      PutMessage('Selection required.');
      exit;
   end;
   SetForeground(255); {Black}
   SetBackground(0); {White}
   SelectAll;
   Clear;
   RestoreRoi;
   Fill;
   KillRoi;
end;